1 IFA=0THENA=1:POKE808,225:POKE53280,0:POKE53281,0:GOSUB6
2 IFA=1THENA=2:LOAD"RUDI.ASS",8,1
3 READPC:SYS57812"RUDI.PIC",8,1:POKE53280,0:POKE53281,0:POKE780,0:SYS65493:POKE1000,8:SYS4096*5:POKE198,0:WAIT198,1:POKE53265,27:POKE53270,200:POKE53272,21:POKE53281,0:PRINT"[147]"
4 GETA$:IFA$=""THEN4
5 LOAD"RUDI.LOD",8:DATA49,50,51,52,53,54,65
6 GOSUB21:PRINT"[147]","[157][157][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]":PRINT"        [194][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201][146][194]":PRINT"        [194][194][176][195][195][174] [176][195][195][178][195][195][178][195][195][178][195][195][195][174][194][146][194]":PRINT"        [194][194][194][195] [171][195][179] [195][179]  [194] [195][179]   [194][194][146][194]":PRINT"        [194][202][179] [195][179] [194]  [194][176][174][194]  [171][174] [176][177][203][146][194]":PRINT"        [194][213][179][195] [171][195][219][195] [194][173][189][194] [176][189][194] [171][195][201][146][194]"
8 PRINT"        [194][194][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174][194][146][194]"
9 PRINT"        [194][202][179]CHAOS-PD-SOFTWARE[171][203][146][194]"
10 PRINT"        [194] [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189] [146][194]"
11 PRINT"        [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203][151]":GOSUB21:GOSUB19:PRINT"[152]":GOSUB19
12 PRINT"[155]":GOSUB19:PRINT""
19 PRINT,"[145][145]   PRAESENTIERT:"
20 FORX=1TO50:NEXT:RETURN
21 FORX=1TO1000:NEXT:RETURN